home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / HI-RES CURSOR MOVER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  874b  |  26 lines
  1. 5  HGR 
  2. 10  GOSUB 900
  3. 20  ROT= 0: SCALE= 1: COLOR= 3
  4. 25 Z = 1: GOSUB 800
  5. 30 X1 = 100:Y1 = 100:X = X1:Y = Y1: XDRAW 1 AT X1,Y1
  6. 100  IF  PEEK( -16384) <127  THEN  GOSUB 700
  7. 120 X = X +(K$ = "L") +(K$ = "O") +(K$ = ",") -(K$ = "J") -(K$ = "U") -(K$ = "N")
  8. 130 Y = Y +(K$ = "M") +(K$ = "N") +(K$ = ",") -(K$ = "I") -(K$ = "U") -(K$ = "O")
  9. 145 X = X -(X1 -X) *ZZ:Y = Y -(Y1 -Y) *ZZ
  10. 150  IF X <0  THEN X = 0
  11. 152  IF X >279  THEN X = 279
  12. 154  IF Y <0  THEN Y = 0
  13. 156  IF Y >159  THEN Y = 159
  14. 160  XDRAW 1 AT X1,Y1
  15. 170  XDRAW 1 AT X,Y
  16. 180 X1 = X:Y1 = Y
  17. 190  GOTO 100
  18. 700  IF  CHR$( PEEK( -16384) -128) = ""  THEN Z = Z +1: GOTO 800
  19. 710 K$ =  CHR$( PEEK( -16384) -128): POKE  -16368,0: RETURN 
  20. 800 ZZ = ZZ +1
  21. 810  IF ZZ = 7  THEN ZZ = 1
  22. 820  RETURN 
  23. 900  FOR I = 768 TO 778: READ J: POKE I,J: NEXT I
  24. 910  POKE 232,0: POKE 233,3
  25. 920  RETURN 
  26. 1000  DATA  1,0,4,0,36,214,111,41,159,54,0